home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing9.mod < prev    next >
Text File  |  1993-01-22  |  482b  |  34 lines
  1. MODULE Multiplikation;
  2. IMPORT
  3.   io;
  4. CONST
  5.   Max = 15;
  6.   Stellen = 3;
  7. VAR
  8.   Tabelle: ARRAY Max, Max OF INTEGER;
  9.   x, y: INTEGER;
  10. BEGIN
  11.   x := 0;
  12.   REPEAT
  13.     y := 0;
  14.     REPEAT
  15.       Tabelle[x, y] := (x+1) * (y+1);
  16.       INC (y);
  17.     UNTIL y = Max;
  18.     INC (x);
  19.   UNTIL x = Max;
  20.  
  21.   (* ... *)
  22.  
  23.   x := 0;
  24.   REPEAT
  25.     y := 0;
  26.     REPEAT
  27.       io.WriteInt (Tabelle[x, y], Stellen + 1);
  28.       INC (y);
  29.     UNTIL y = Max;
  30.     io.WriteLn;
  31.     INC (x);
  32.   UNTIL x = Max;
  33. END Multiplikation.
  34.